home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ IE Folders.xpl < prev    next >
Text File  |  2003-11-20  |  2KB  |  79 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="4"
  3. "COUNT"="4"
  4. "UIPATH 1"="System\File System\Folders\Data"
  5. "UIPATH 2"="Internet\Internet Explorer\Files&Folders"
  6. "NAME"="Internet Explorer Folders"
  7. "LANGUAGE"="VBScript"
  8. "VERSION"="1.07"
  9. "TEXT 1"="Downloads"
  10. "TEXT 2"="Favorites"
  11. "TEXT 3"="Cookies"
  12. "TEXT 4"="History"
  13. "DESCRIPTION 1"=""Downloads" specifies the default folder for downloaded files from the Internet (normally used only by Internet Explorer)."
  14. "DESCRIPTION 2"=""Favorites" specifies the folder where your Internet Links are located (normally used only by Internet Explorer)."
  15. "DESCRIPTION 3"=""Cookies" specifies the folder where persitent data from Websites is located (normally used only by Internet Explorer)."
  16. "DESCRIPTION 4"=""History" specifies the folder where the history files are located (e.g. last visited sites etc.)."
  17. "DESCRIPTION 5"="*IMPORTANT* When changing any folder here, you need to copy the files from the old location to the new one "by hand". X-Setup can't do this! *IMPORTANT*"
  18. "AUTHOR"="Xteq Systems"
  19. "CONTACTURL"="http://www.xteq.com"
  20. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  21. "COMMENT 1"=" "
  22.  
  23.  
  24. sP1="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\"
  25. sP2="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\"
  26.  
  27. sP_IE="HKCU\Software\Microsoft\Internet Explorer\"
  28.  
  29. Sub Plugin_Initialize 
  30.  s=RegReadValue(sP_IE & "Download Directory")
  31.  SetUIElement 1,s
  32.  
  33.  s=RegReadValue(sP1 & "Favorites")
  34.  SetUIElement 2,s
  35.  
  36.  s=RegReadValue(sP1 & "Cookies")
  37.  SetUIElement 3,s
  38.  
  39.  s=RegReadValue(sP1 & "History")
  40.  SetUIElement 4,s
  41.  
  42. End Sub
  43.  
  44.  
  45. Sub Plugin_CheckData(ElementIndex)
  46. End Sub
  47.  
  48.  
  49.  
  50. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  51.  s=GetUIElement(1)
  52.  if Right(s,1)="\" then s=left(s,len(s)-1)
  53.  Call RegWriteValue(sP_IE & "Download Directory",s,1)
  54.  
  55.  s=GetUIElement(2)
  56.  Call RegWriteValue(sP1 & "Favorites",s,1)
  57.  Call RegWriteValue(sP2 & "Favorites",s,1)
  58.  
  59.  s=GetUIElement(3)
  60.  Call RegWriteValue(sP1 & "Cookies",s,1)
  61.  Call RegWriteValue(sP2 & "Cookies",s,1)
  62.  
  63.  s=GetUIElement(4)
  64.  Call RegWriteValue(sP1 & "History",s,1)
  65.  Call RegWriteValue(sP2 & "History",s,1)
  66.  
  67.  
  68.  
  69.  Call MsgWarning("Remember that you need to copy the files from their old directories to the new ones you just set!!")
  70.  Call Logoff() 'Required because of ActiveDestop and other crap
  71. End Sub
  72.  
  73.  
  74. Sub Plugin_Terminate 
  75. End Sub
  76.  
  77.  
  78.  
  79.